From: Kim F. Storm <storm@cua.dk>
Date: Mon, 3 May 2004 13:39:24 +0000 (+0000)
Subject: (cua--update-indications): Fix last change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~22740
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=253add4c62d04b3daa3b02c186a22f863f401eea;p=emacs.git

(cua--update-indications): Fix last change.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index c248dbbdcf2..6a0e8a00cde 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1039,7 +1039,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
 	(set-cursor-color color))
     (if (and type
 	     (symbolp type)
-	     (not (eq type (frame-parameter nil 'cursor-type))))
+	     (not (eq type default-cursor-type)))
 	(setq default-cursor-type type))))